home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / graphics / psfig / unsupported / dospecial.frag < prev    next >
Text File  |  1991-11-18  |  1KB  |  44 lines
  1. /*
  2.  * This is a code fragment from a patched version of dospecial.c
  3.  * dvips version 5.47
  4.  *
  5.  * The changed lines are between the TJD comments.
  6.  * The patch allows for zcat input to plotfile commands.
  7.  *
  8.  */
  9.  
  10.  
  11.    if (strncmp(p, "ps:", 3)==0) {
  12.         hvpos() ;
  13.         psflush() ; /* now anything can happen. */
  14.         if (p[3]==':') {
  15.            if (strncmp(p+4, "[begin]", 7) == 0)
  16.               nlcmdout(&p[11]);
  17.            else if (strncmp(p+4, "[end]", 5) == 0)
  18.               nlcmdout(&p[9]);
  19.            else nlcmdout(&p[4]);
  20.         } else if (strncmp(p+3, " plotfile ", 10) == 0) {
  21.            char *sfp ;
  22.            p += 13;
  23.        /*
  24.         *  Fixed to allow popen input for plotfile
  25.         *  TJD 10/20/91
  26.         */
  27.        while (*p == ' ') p++;
  28.        if (*p == '"') {
  29.          p++;
  30.          for (sfp = p; *sfp && *sfp != '"'; sfp++) ;
  31.            } else {
  32.          for (sfp = p; *sfp && *sfp != ' '; sfp++) ;
  33.            }
  34.            *sfp = '\0';
  35.        if (*p == '`') 
  36.          figcopyfile(p+1, 1);
  37.        else
  38.          figcopyfile (p, 0);
  39.        /* End TJD changes */
  40.         } else
  41.            nlcmdout(&p[3]);
  42.         return;
  43.    }
  44.